home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue66 / Construc / CorbaServer.dpr < prev    next >
Encoding:
Text File  |  2001-01-03  |  877 b   |  36 lines
  1. program CorbaServer;
  2. {$APPTYPE CONSOLE}
  3. uses
  4.   SysUtils,
  5.   CORBA,
  6.   DrBob42_c in 'DrBob42_c.pas',
  7.   DrBob42_i in 'DrBob42_i.pas',
  8.   DrBob42_impl in 'DrBob42_impl.pas',
  9.   DrBob42_s in 'DrBob42_s.pas';
  10.  
  11. var
  12.   Rate: Rates;
  13.   Acct: Account;
  14.   MyAcct: MyAccount;
  15.  
  16. begin
  17.   CorbaInitialize;
  18.  
  19.   // Add CORBA server Code Here
  20.   writeln('Init');
  21.   Rate := TRatesSkeleton.Create('Rate', TRates.Create);
  22.   writeln('Server Rate Object Created...');
  23.   Acct := TAccountSkeleton.Create('Account', TAccount.Create);
  24.   writeln('Server Account Object Created...');
  25.   MyAcct := TMyAccountSkeleton.Create('MyAccount', TMyAccount.Create);
  26.   writeln('Server MyAccount Object Created...');
  27.   writeln;
  28.  
  29.   BOA.ObjIsReady(Rate);
  30.   write('And ');
  31.   BOA.ObjIsReady(Acct);
  32.   write('the ');
  33.   BOA.ObjIsReady(MyAcct);
  34.   writeln('Server is ready...');
  35.   BOA.ImplIsReady;
  36. end.